home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 August (Alt) / CHIP 2005-08.1.iso / program / guvenlik / syslinux-3.07.exe / rllpack.inc < prev    next >
Encoding:
Text File  |  2004-12-17  |  2.3 KB  |  134 lines
  1. ; -*- fundamental -*-
  2. ; -----------------------------------------------------------------------
  3. ;   
  4. ;   Copyright 2004 H. Peter Anvin - All Rights Reserved
  5. ;
  6. ;   This program is free software; you can redistribute it and/or modify
  7. ;   it under the terms of the GNU General Public License as published by
  8. ;   the Free Software Foundation, Inc., 53 Temple Place Ste 330,
  9. ;   Boston MA 02111-1307, USA; either version 2 of the License, or
  10. ;   (at your option) any later version; incorporated herein by reference.
  11. ;
  12. ; -----------------------------------------------------------------------
  13. ; $Id: rllpack.inc,v 1.2 2004/12/17 07:52:54 hpa Exp $
  14.  
  15. ;
  16. ; rllpack.inc
  17. ;
  18. ; Very simple RLL compressor/decompressor, used to pack binary structures
  19. ; together.
  20. ;
  21. ; Format of leading byte
  22. ; 1-128        = x verbatim bytes follow
  23. ; 129-255     = (x-126) times subsequent byte
  24. ; 0        = end of data
  25. ;
  26.  
  27.         section .text
  28.  
  29. ;
  30. ; rllpack:
  31. ;    Pack CX bytes from DS:SI into ES:DI
  32. ;    Returns updated SI, DI and CX = number of bytes output
  33. ;
  34. rllpack:
  35.         push ax
  36.         push bx
  37.         push cx
  38.         push bp
  39.         push di
  40. .startseq:
  41.         xor ax,ax        ; Zero byte
  42.         xor bx,bx        ; Run length zero
  43.         mov bp,di        ; Pointer to header byte
  44.         stosb            ; Store header byte (might be zero)
  45.         jcxz .done_null
  46. .stdbyte:
  47.         lodsb
  48.         stosb
  49.         dec cx
  50.         cmp ah,al
  51.         je .same
  52. .diff:
  53.         mov ah,al
  54.         xor bx,bx
  55. .plainbyte:
  56.         inc bx
  57.         inc byte [es:bp]
  58.         jcxz .done
  59.         jns .stdbyte
  60.         jmp .startseq
  61. .same:
  62.         cmp bl,2
  63.         jb .plainbyte
  64.         ; 3 bytes or more in a row, time to convert sequence
  65.         sub byte [es:bp],bl
  66.         jnz .normal
  67.         dec di            ; We killed a whole stretch, remove start byte
  68. .normal:
  69.         inc bx    
  70.         sub di,bx
  71.         mov bp,di
  72.         mov al,bl
  73.         add al,126
  74.         stosb
  75.         mov al,ah
  76.         stosb
  77. .getrun:
  78.         jcxz .done
  79.         cmp bl,255-126
  80.         jae .startseq
  81.         lodsb
  82.         cmp al,ah
  83.         jne .nomatch
  84.         inc bx
  85.         inc byte [es:bp]
  86.         dec cx
  87.         jmp .getrun
  88. .nomatch:
  89.         dec si
  90.         jmp .startseq
  91. .done:
  92.         xor al,al
  93.         stosb
  94. .done_null:
  95.         pop dx
  96.         sub dx,di
  97.         neg dx
  98.         pop bp
  99.         pop cx
  100.         pop bx
  101.         pop ax
  102.         ret
  103. ;
  104. ; rllunpack:
  105. ;    Unpack bytes from DS:SI into ES:DI
  106. ;    On return SI, DI are updated and CX contains number of bytes output
  107. ;    
  108. rllunpack:
  109.         push ax
  110.         push di
  111.         xor cx,cx
  112. .header:
  113.         lodsb
  114.         and al,al
  115.         jz .done
  116.         cmp al,129
  117.         jae .isrun
  118.         ; Not a run
  119.         mov cl,al
  120.         rep movsb
  121.         jmp .header
  122. .isrun:
  123.         sub al,126
  124.         mov cl,al
  125.         lodsb
  126.         rep stosb
  127.         jmp .header
  128. .done:
  129.         pop cx
  130.         sub cx,di
  131.         neg cx
  132.         pop ax
  133.         ret
  134.